(shell-command): Remove space after `:' in mode-line-process.

diff --git a/lisp/simple.el b/lisp/simple.el
index 40dc51f08c90d2523c428c17a9dfa2299993bf5e..69df7fa5eebbffccc8ef4d3235e41fa144ebf541 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -700,7 +700,7 @@ This cannot be done asynchronously."
                  (setq default-directory directory)
                  (setq proc (start-process "Shell" buffer 
                                            shell-file-name "-c" command))
-                 (setq mode-line-process '(": %s"))
+                 (setq mode-line-process '(":%s"))
                  (set-process-sentinel proc 'shell-command-sentinel)
                  (set-process-filter proc 'shell-command-filter)
                  ))